#!/usr/bin/perl

use stringHash;
my $hashvalue = stringHash::EnHancehashString($ARGV[0], 0) % 65536;
print $hashvalue."\n";
